Amiga ISO Collection/AmigaUtilCD2.iso/Virus/TRSIVW58.LHA/VirusWorkshop/Install VirusWorkshop

Text File | 1995-11-11 | 14.3 KB | 649 lines

; Installer für VirusWorkShop
; Sprachvorgabe deutsch
; 19.04.95 @ Elli
;
; Editiert und fertiggestellt von Marcel Döring 22.10.95
; Version 0.12

(if (= @language "deutsch")
        (
                (set VWbadkick "Kickstart 37.175 (OS 2.04) wird unbedingt benötigt!")
                (set VWaskdir (cat "In welchem Verzeichnis möchten Sie " @app-name " installieren?"))
                (set VWdirhelp
                        (cat
                                 "Wählen sie das Verzeichnis, in dem " @app-name " mit allen"
                                 " notwendigen Dateien und Unterverzeichnissen installiert"
                                 " werden soll."
                        )
                )

                (set VWlanguage "Welche Sprachen möchten Sie installieren?")
                (set VWlanghelp
                        (cat
                                 "Die Dokumentation zu " @app-name " steht in deutscher und"
                                 " holländischer Sprache zu Ihrer Verfügung und sie können nun"
                                 " aussuchen, welche Sprache(n) installiert werden sollen.\n\n"
                                 "Sofern sie über OS 2.1 (oder besser) verfügen, werden dabei"
                                 " auch noch die dazugehörenden Katalogdateien kopiert, damit"
                                 " auch die Bedienelemente entsprechend beschriftet werden."
                        )
                )
                (set VWwhichfile "Welche Programme und Programmteile sollen installiert werden?")
                (set VWfilehelp
                        (cat
                                 "Die von Ihnen angewählten Programme und Programmteile"
                                 "werden in die dafür erzeugten Verzeichnisse kopiert.\n\n"
                                 "Zur Benutzung des Programms sind nicht alle Dateien nötig;\n\n"
                                 "BITTE das GUIDE file dazu lesen!!!"
                         )
                )
                (set VWDutch "Niederländisch")
                (set VWGerman "Deutsch")

                (set VWwhichicons "Welche Icons möchten Sie installieren?")
                (set VWmagicicons "MagicWB Icons")
                (set VWstandardicons "Standard Icons")
        )
)

(set #XFDMsg
(cat "Kopieren der nötigen Decruncher und der ReadMe-Datei."
))

(set #CMsg
(cat "Welche Programme möchten Sie übernehmen ?"
))

(set #ARexx
(cat "Welche ARexx-Beispielskripte möchten Sie übernehmen ?"
))

(set #Sask
(cat "Möchten Sie die Startup-Sequence z.B. \n"
     "für Disk-Startup-Zwecke kopieren ?"
))

(if (= @language "english")
        (
                (set VWbadkick "Kickstart 37.175 (OS 2.04) must be present for VW !")
                (set VWaskdir (cat "In which directory you want to install " @app-name " ?"))
                (set VWdirhelp
                        (cat
                                 "Choose the directory, in which " @app-name " (including all "
                                 " needed files and subdirectories) should be installed !"

                        )
                )

                (set VWlanguage "Welche Sprachen möchen Sie installieren?")
                (set VWlanghelp
                        (cat
                                 "Die Dokumentation zu " @app-name " steht in deutscher und"
                                 " holländischer Sprache zu Ihrer Verfügung und sie können nun"
                                 " aussuchen, welche Sprache(n) installiert werden sollen.\n\n"
                                 "Sofern sie über OS 2.1 (oder besser) verfügen, werden dabei"
                                 " auch noch die dazugehörenden Katalogdateien kopiert, damit"
                                 " auch die Bedienelemente entsprechend beschriftet werden."
                        )
                )
                (set VWwhichfile "Which programms should be installed ?")
                (set VWfilehelp
                        (cat
                                 "Die von Ihnen angewählten Programme und Programmteile"
                                 "werden in die dafür erzeugten Verzeichnisse kopiert.\n\n"
                                 "Zur Benutzung des Programms sind nicht alle Dateien nötig;\n\n"
                                 "BITTE das GUIDE file dazu lesen!!!"
                         )
                )
                (set VWDutch "Niederländisch")
                (set VWGerman "Deutsch")

                (set VWwhichicons "Welche Icons möchten Sie installieren?")
                (set VWmagicicons "MagicWB Icons")
                (set VWstandardicons "Standard Icons")
        )
)

(set #XFDMsg
(cat "Please choose which decrunchers you want \n"
     "to install.(It`s recommended to install all \n"
     "of them !"
))

(set #CMsg
(cat "Please verify which tools you want to install."
))

(set #ARexx
(cat "Which ARexx-examples do you want to install ?"
))

(set #Sask
(cat "Would you like to copy the Startup-Sequence \n"
     "e.q. for Disk-Startup ?"
))


(if (< (/ (getversion "intuition.library" (resident)) 65536) 37)
        (
                (message VWbadkick)
                (exit)
        )
)

;Sage mir bloß nicht, wohin in diesem Wirrwarr !?!?!

(set VirusWorkShopdir
        (askdir
                (prompt VWaskdir)
                (help VWdirhelp)
                (newpath)
                (default "SYS:")
        )
)



(set VirusWorkshopdir (tackon VirusWorkshopdir "VirusWorkshop"))
(if (NOT (exists VirusWorkshopdir))
        (makedir virusworkshopdir (infos))
)
(set docdir (tackon VirusWorkShopdir "Documents"))
(if (NOT (exists docdir))
        (makedir docdir (infos))
)
(set prefsdir (tackon VirusWorkshopdir "Prefs"))
(if (NOT (exists prefsdir))
        (makedir prefsdir (infos))
)
(set cdir (tackon VirusWorkShopdir "C"))
(if (NOT (exists cdir))
        (makedir cdir)
)
(set ARexxDir (tackon VirusWorkShopdir "ARexx"))
(if (NOT (exists ARexxDir))
        (makedir ARexxDir)
)
(set sdir (tackon VirusWorkShopdir "s"))
(if (NOT (exists sdir))
        (makedir sdir)
)
(set libsdir (tackon VirusWorkShopdir "Libs"))
(if (NOT (exists libsdir))
        (makedir libsdir)
)
(set localedir (tackon VirusWorkShopdir "Locale"))
(if (NOT (exists localedir))
        (makedir localedir)
)
(set toolsdir (tackon VirusWorkShopdir "Tools"))
(if (NOT (exists toolsdir))
        (makedir toolsdir (infos))
)
(set xfddir (tackon VirusWorkShopdir "Libs/xfd"))
(if (NOT (exists xfddir))
        (makedir xfddir)
)
(complete 5)

(set installfiles
        (askoptions
                (prompt VWwhichfile)
                (choices "VirusWorkShop" "VW.Prefs" "DHunk" "ELrm" "VW.Save!" "Die nötigen Librarys" "Die ARexx Skripte" "MagicWB-Icons" "Startup-Sequence" )
                (help VWfilehelp)
                (default VirusWorkShopdir)
        )
)

(complete 10)

;kopiere files nach dest.

(if (BITAND installfiles 1)
(copyfiles
        (source "VirusWorkShop")
        (dest VirusWorkShopdir)
)
)
(if (BITAND installfiles 1)
(copyfiles
        (source "VirusWorkShop.info")
        (dest VirusWorkShopdir)
)
)
(if (BITAND installfiles 1)
(copyfiles
        (source "/VirusWorkshop/VW.Prefs")
        (dest VirusWorkShopdir)
)
)
(if (BITAND installfiles 1)
(copyfiles
        (source "/VirusWorkshop/VW.Prefs.README")
        (dest VirusWorkShopdir)
)
)
(if (BITAND installfiles 1)
(copyfiles
        (source "/VirusWorkshop/VW.Prefs.README.sig")
        (dest VirusWorkShopdir)
)
)

(complete 20)

(if (BITAND installfiles 2)
(copyfiles
        (source "/VirusWorkShop/Prefs/VirusWorkshop")
        (dest prefsdir)
)
(copyfiles
        (source "/VirusWorkShop/Prefs/VirusWorkshop.info")
        (dest VirusWorkShopdir)
)

)

(if (BITAND installfiles 2)
(copyfiles
        (source "/VirusWorkShop/Prefs/VirusWorkshop.sig")
        (dest VirusWorkShopdir)
)
)
(if (BITAND installfiles 2)
(copyfiles
        (source "/VirusWorkShop/VirusWorkshop.News")
        (dest VirusWorkShopdir)
)
(copyfiles
        (source "/VirusWorkShop/VirusWorkshop.News.info")
        (dest VirusWorkShopdir)
)

)

(if (BITAND installfiles 2)
(copyfiles
        (source "/VirusWorkShop/VirusWorkshop.News.sig")
        (dest VirusWorkShopdir)
)
)

(if (BITAND installfiles 2)
(copyfiles
        (source "/VirusWorkShop/VW.Prefs")
        (dest VirusWorkShopdir)
)
(copyfiles
        (source "/VirusWorkShop/VW.Prefs.README")
        (dest VirusWorkShopdir)
)

)
(if (BITAND installfiles 2)
(copyfiles
        (source "/VirusWorkShop/VW.Prefs.README.sig")
        (dest VirusWorkShopdir)
)
)

(complete 30)

(if (BITAND installfiles 3)
(copyfiles
        (source "/VirusWorkShop/Tools/DHunk")
        (dest Toolsdir)
)
)
(if (BITAND installfiles 3)
(copyfiles
        (source "/VirusWorkShop/Tools/DHunk.sig")
        (dest Toolsdir)
)
)

(if (BITAND installfiles 4)
(copyfiles
        (source "/VirusWorkShop/Tools/Elrm")
        (dest Toolsdir)
)
)
(if (BITAND installfiles 4)
(copyfiles
        (source "/VirusWorkShop/Tools/Elrm.sig")
        (dest Toolsdir)
)
)
(if (BITAND installfiles 5)
(copyfiles
        (source "/VirusWorkShop/Tools/VW-Save!")
        (dest Toolsdir)
)
)
(if (BITAND installfiles 5)
(copyfiles
        (source "/VirusWorkShop/Tools/VW-Save!.info")
        (dest Toolsdir)
)
)

(if (BITAND installfiles 5)
(copyfiles
        (source "/VirusWorkShop/Tools/VW-Save!.sig")
        (dest Toolsdir)
)
)

(if (BITAND installfiles 6)
(copyfiles
        (source "/VirusWorkShop/Libs/FileID.library")
        (dest Libsdir)
)
)

(if (BITAND installfiles 6)
(copyfiles
        (source "/VirusWorkShop/Libs/FileID.library.sig")
        (dest Libsdir)
)
)

(complete 40)

(if (BITAND installfiles 6)
(copyfiles
        (source "/VirusWorkShop/Libs/powerpacker.library")
        (dest Libsdir)
)
)
(if (BITAND installfiles 6)
(copyfiles
        (source "/VirusWorkShop/Libs/Reqtools.library")
        (dest Libsdir)
)
)

(if (BITAND installfiles 6)
(copyfiles
        (source "/VirusWorkShop/Libs/ReqTools.library.sig")
        (dest Libsdir)
)
)

(if (BITAND installfiles 6)
(copyfiles
        (source "/VirusWorkShop/Libs/xfdmaster.library")
        (dest Libsdir)
)
)

(if (BITAND installfiles 6)
(copyfiles
        (source "/VirusWorkShop/Libs/xfdmaster.library.sig")
        (dest Libsdir)
)
)

(complete 50)

(if (BITAND installfiles 6)
(copyfiles
        (help @copyfiles-help)
        (prompt #XFDMsg)
        (source "/VirusWorkshop/Libs/XFD")
        (confirm)
        (all)
        (dest Xfddir)
)
)

(if (BITAND installfiles 6)
(copyfiles
        (help @copyfiles-help)
        (prompt #CMsg)
        (source "/VirusWorkshop/C")
        (confirm)
        (all)
        (dest Cdir)
)
)

(if (BITAND installfiles 7)
(copyfiles
        (help @copyfiles-help)
        (prompt #ARexx)
        (source "/VirusWorkshop/ARexx")
        (confirm)
        (all)
        (dest ARexxDir)
)
)

(complete 60)

(if (BITAND installfiles 2)

(copyfiles
       (source "Documents/VirusWorkshop.guide")
       (dest docdir)

)
)

(if (BITAND installfiles 2)
(copyfiles
       (source "Documents/VirusWorkshop.Guide.info")
       (dest docdir)

)
)

(if (BITAND installfiles 2)
(copyfiles
       (source "Documents/Starterproblems.guide")
       (dest docdir)

)
)

(if (BITAND installfiles 2)
(copyfiles
       (source "Documents/Starterproblems.Guide.info")
       (dest docdir)

)
)
(if (BITAND installfiles 2)
(copyfiles
       (source "Documents/Dhunk.guide")
       (dest docdir)

)
)

(if (BITAND installfiles 2)
(copyfiles
       (source "Documents/Dhunk.Guide.info")
       (dest docdir)

)
)

(complete 65)

(if (BITAND installfiles 2)
(copyfiles
       (source "Documents/Elrm.guide")
       (dest docdir)

)
)

(if (BITAND installfiles 2)
(copyfiles
       (source "Documents/Elrm.Guide.info")
       (dest docdir)

)
)
(if (BITAND installfiles 2)
(copyfiles
       (source "Documents/VW-Viruses.guide")
       (dest docdir)

)
)

(if (BITAND installfiles 2)
(copyfiles
       (source "Documents/VW-Viruses.Guide.info")
       (dest docdir)

)
)


(if (BITAND installfiles 2)
(copyfiles
       (source "Documents/NewVirus.guide")
       (dest docdir)

)
)

(complete 70)

(if (BITAND installfiles 2)
(copyfiles
       (source "Documents/NewVirus.Guide.info")
       (dest docdir)

)
)


(if (BITAND installfiles 2)
(copyfiles
       (source "Documents/VWMemmon.guide")
       (dest docdir)

)
)

(if (BITAND installfiles 2)
(copyfiles
       (source "Documents/VWMemmon.Guide.info")
       (dest docdir)

)
)
(if (BITAND installfiles 2)
(copyfiles
       (source "Documents/Pref-Edit.guide")
       (dest docdir)

)
)

(if (BITAND installfiles 2)
(copyfiles
       (source "Documents/Pref-Edit.Guide.info")
       (dest docdir)

)
)

(if (BITAND installfiles 2)
(copyfiles
       (source "Documents/VW-Save!.guide")
       (dest docdir)

)
)

(if (BITAND installfiles 2)
(copyfiles
       (source "Documents/VW-Save!.Guide.info")
       (dest docdir)

)
)

(complete 75)

(if (BITAND installfiles 8)
(copyfiles
        (source "/VirusWorkshop/MagicWB.Readme")
        (dest VirusWorkShopdir)
)
)
(if (BITAND installfiles 8)
(copyfiles
        (source "/VirusWorkshop/MagicWB.Readme.sig")
        (dest VirusWorkShopdir)
)
)
(if (BITAND installfiles 8)
(copyfiles
        (source "/VirusWorkshop/MagicWB/DosTouch.Guide.info")
        (dest docdir)

)
)
(if (BITAND installfiles 8)
(copyfiles
        (source "/VirusWorkshop/MagicWB/Pref-Edit.Guide.info")
        (dest docdir)
)
)
(if (BITAND installfiles 8)
(copyfiles
        (source "/VirusWorkshop/MagicWB/Pref-Edit.info")
        (dest docdir)
)
)
(if (BITAND installfiles 8)
(copyfiles
        (source "/VirusWorkshop/MagicWB/VirusWorkshop.guide.info")
        (dest docdir)
)
)
(if (BITAND installfiles 8)
(copyfiles
        (source "/VirusWorkshop/MagicWB/VirusWorkshop.info")
        (dest VirusWorkShopdir)
)
)
(if (BITAND installfiles 8)
(copyfiles
        (source "/VirusWorkshop/MagicWB/VirusWorkshop.News.info")
        (dest VirusWorkShopdir)
)
)
(if (BITAND installfiles 8)
(copyfiles
        (source "/VirusWorkshop/MagicWB/VWMemMon.Guide.info")
        (dest docdir)
)
)

(complete 90)

(if (BITAND installfiles 9)
(copyfiles
        (help @copyfiles-help)
        (prompt #Sask)
        (source "/VirusWorkshop/S")
        (confirm)
        (all)
        (dest SDir)
)
)

;Correct @default-dest so that final information is correct.
(set @default-dest VirusWorkShopdir)

(complete 100)

(exit)